
Namespace Validation
    <AttributeUsage(AttributeTargets.Property, AllowMultiple:=False, Inherited:=False)> Public NotInheritable Class NotNullValidatorAttribute
        Inherits BaseValidatorAttribute

#Region " Constructor "

        Public Sub New()
        End Sub

#End Region

#Region " Methods "

        Public Overrides Function Create(ByVal strPropertyName As String) As Validator
            Return New Validator(AddressOf Validation.ComparisonValidationRules.NotNullRule, New NotNullRuleEventArgs(Me, strPropertyName), RuleType.Attribute)
        End Function

#End Region

    End Class

End Namespace
